!      Module Damping_ModelName_Module
!   
!      Use PrintOut_Module                       ! Warning_Message_GPU
!      Use Damping_Model_Module                  ! Damping_Model_GPU
!      Use Constant,                             ONLY: Icdat,Icout
!   
!      Implicit None
!      
!      Contains
!   
!      Attributes(Device) Subroutine Damping_Model_Name_GPU(Ttemp,Ielem,Igaus,Lprpm,Propm,Dstre,Dstan,Dmatx,      &
!                                                           Mdamp,Icprt,Model,Propd,Lprpd,Voidr,Lpara,Ktest,      &
!                                                           Ntest,Porep,Dpore,Mgmod,Ndime,Nstre,Pcord,Lnods,      &
!                                                           Ntype,RunTime,DeltaTime,LGaussp,Gausp,Index_Gauss_Points,Ielem_GPU)                                    
!
!!.... Get The Name Of The Damping Model Used
!
!      Implicit None
!      
!      Integer Ntype,LGaussp(20),Lnods(:,:),Index_Gauss_Points(:)
!      Double Precision RunTime,DeltaTime,Pcord(:,:),Gausp(:,:)
!      
!      Integer Mgmod,Ndime,Nstre,Ielem_GPU
!      Integer Model,Lprpd,Lpara,Ntest,Ktest(Ntest)
!      Double Precision Gausm(Mgmod),Propd(Lprpd),Voidr,Porep,Dpore
!
!!.... Used Variable
!      Character Ttemp*(*)
!!.... Input Varaibles
!      Integer Ielem,Igaus,Icprt
!!.... Passed Variables
!      Integer Lprpm
!      Double Precision Propm(Lprpm),Dstre(Nstre),Dstan(Nstre)
!      Double Precision Dmatx(Nstre,Nstre)
!!.... Output Variable
!      Integer Mdamp
!
!!.... Local Variables
!      Integer Itemp,Iswdp
!      Iswdp=1
!      
!   10 Continue
!         Read (Icdat,'(A)',Err=3100,End=3200)Ttemp
!      If (Ttemp.Eq.' ') Goto 10
!      
!      Itemp=Len_Trim(Ttemp)
!      
!      Write(Icout,2003)Ttemp(1:Itemp)
! 2003 Format(' Damping Model Type: ',A)
!      
!      If (Ttemp(1:8).Ne.'DAMPMOD:') Then
!         Call Warning_Message_GPU('Damping_Model_Name-1: '//'Damping Model Name Should Start With Dampmod:')         
!         Backspace Icdat
!         Mdamp=0
!      Else
!         If      (Ttemp(9:16).Eq.'ELASTIC ') Then
!            Mdamp=1
!         Else If (Ttemp(9:16).Eq.'CURRENT ') Then
!            Mdamp=2
!         Else
!            Call Warning_Message_GPU('Damping_Model_Name-2: Damping Model Name Not Recognised')
!            Mdamp=0
!         End If
!      End If
!      
!      Call Damping_Model_GPU(Mdamp,Propm,Lprpm,Dstre,Dstan,Dmatx,Ielem,Igaus              &
!                            ,Model,Propd,Lprpd,Gausm,Voidr,Lpara,Ktest,Ntest              &
!                            ,Porep,Dpore,Iswdp,Pcord,Lnods,Ndime,Ntype,Nstre              &
!                            ,RunTime,DeltaTime,LGaussp,Gausp,Index_Gauss_Points,Mgmod,Ielem_GPU)                          
!
!      Return
!    
! 3100 Continue
!         Call Warning_Message_GPU('Damping_Model_Name-3: Error In The Above Channel')
!      Return
! 3200 Continue
!         Call Warning_Message_GPU('Damping_Model_Name-4: End Of File In The Above Channel')
!      Return
!    
!      End
!   
!      End Module